home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / dir bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  336b  |  13 lines
  1. 10 open1,8,15,"i":open8,8,8,"#"
  2. 20 se=1:goto120
  3. 30 :
  4. 50 print#1,"u1:"8;0;18;se:get#8,t$:get#8,se$
  5. 60 fori=2to255step29:print#1,"b-p"8,i:i=i+3:get#8,c$:ifc$=""thennexti
  6. 70 get#8,c$:get#8,c$:b$="":forj=1to16:get#8,a$:ifa$<>chr$(160)thenb$=b$+a$:next
  7. 80 ifb$<>""thenprintchr$(34)b$chr$(34):nexti
  8. 100 se=1:ifse$<>""thense=asc(se$)
  9. 110 ift$=""then200
  10. 120 rem  print"sektor:"se
  11. 130 goto30
  12. 200 close8:input#1,a:close1:ifa<>0thenprint"error"
  13.